home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
pctchnqs
/
1991
/
number4
/
xfonts.pas
< prev
Wrap
Pascal/Delphi Source File
|
1991-06-25
|
574b
|
23 lines
UNIT xFonts;
INTERFACE
USES Graph;
TYPE
ExtraFonts = (TScript, Script, Bold, Euro, Lcom, Simp);
VAR
xFontHandle : ARRAY[ExtraFonts] OF Integer;
IMPLEMENTATION
BEGIN
xFontHandle[TScript] := InstallUserFont('Tscr'); {Triplex script}
xFontHandle[Script] := InstallUserFont('Scri'); {Script}
xFontHandle[Bold] := InstallUserFont('Bold'); {Bold}
xFontHandle[Euro] := InstallUserFont('Euro'); {Euro}
xFontHandle[Lcom] := InstallUserFont('Lcom'); {Little comlex}
xFontHandle[Simp] := InstallUserFont('Simp'); {Simplex}
END.